home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 January / macformat46.iso / Shareware Plus / Applications / Charting Coach / Charting Coach V2.0sw / Charting Coach V2.DXR / 00285.ls < prev    next >
Encoding:
Text File  |  1996-10-13  |  457 b   |  19 lines
  1. on mouseUp
  2.   global dayNo, firstMonthlyDay, beginDate
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   cursor(4)
  7.   set x to the clickOn
  8.   if the cursor of sprite x > 200 then
  9.     killcorrection()
  10.     puppetSprite(7, 1)
  11.     puppetSprite(7, 0)
  12.     go("Monthly Stamp")
  13.     cursor(0)
  14.     set dayNo to x - 13 + firstMonthlyDay
  15.     put "Choose the best stamp for Day " & dayNo & ": " & GetLongDate(dayNo + beginDate - 1) into field "choose"
  16.   end if
  17.   cursor(0)
  18. end
  19.